home *** CD-ROM | disk | FTP | other *** search
/ Grapevine 20 / Grapevine 20 (Disk 1 of 2).adf / Files / arexxexamps.lha / ARTICLES / AREXX_EXAMPLES / Example12.rexx < prev    next >
OS/2 REXX Batch file  |  1980-01-07  |  380b  |  13 lines
  1. /* Example 12 */
  2.  
  3. fileptr = "tempfile"
  4. path    = "RAM:TempFile"
  5.  
  6. If Open(fileptr, path, "W") Then Do   /* Here is A DO */
  7.    Call Writeln(fileptr, "This is Line 1")
  8.    Call Writeln(fileptr, "This is Line 2")
  9.    Call Writeln(fileptr, "This is Line 3")
  10.    Call Close(fileptr)
  11. End                                   /* Here is A END */
  12. Else
  13.    Say "Unable to create and write file..."